From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 May 1993 23:18:47 +0000 (+0000)
Subject: (mail-setup): Leave point before signature, not after.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96208
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=874bdb5a86c148bb33ecc51b74ae743cccaf7089;p=emacs.git

(mail-setup): Leave point before signature, not after.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 9134c34095c..bfb02c44a1b 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -150,7 +150,8 @@ so you can edit or delete these lines.")
     (if mail-archive-file-name
 	(insert "FCC: " mail-archive-file-name "\n"))
     (insert mail-header-separator "\n")
-    ;; Insert the signature.
+    ;; Insert the signature.  But remember the beginning of the message.
+    (if to (setq to (point)))
     (cond ((eq mail-signature t)
 	   (if (file-exists-p "~/.signature")
 	       (insert-file-contents "~/.signature")))
@@ -158,7 +159,7 @@ so you can edit or delete these lines.")
 	   (insert mail-signature)))
     (goto-char (point-max))
     (or (bolp) (newline)))
-  (if to (goto-char (point-max)))
+  (if to (goto-char to))
   (or to subject in-reply-to
       (set-buffer-modified-p nil))
   (run-hooks 'mail-setup-hook))